home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 January / Ahoy_Magazine_85-01_1985_Double_L.d64 / rupert #3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  312b  |  14 lines
  1. 0 rem << rr13-6 >>
  2. 1 rem --- sprite loader ---
  3. 10 input"load which sprite file";fl$
  4. 20 input"which memory block (192..199)";bk
  5. 30 mem=64*bk
  6. 40 open 8,8,8,"0:"+fl$+",s,r"
  7. 45 rem >for cassette, replace    line 40 with this: open 8,1,0,fl$
  8. 50 for n=1 to 63
  9. 60 input#8,ttl
  10. 70 print ttl,
  11. 80 poke mem,ttl : mem=mem+1
  12. 90 next n
  13. 100 close 8
  14.